home *** CD-ROM | disk | FTP | other *** search
/ Virtual Valerie 2 / Virtual Valerie 2.iso / pc / vv2intro / panic / 00004.ls < prev    next >
Encoding:
Text File  |  1995-01-19  |  2.1 KB  |  77 lines
  1. on JUMBLE
  2.   global BOS
  3.   set BOS to random(30)
  4.   if BOS = 30 then
  5.     set the text of cast "TEXT" to "Welcome to the Bonehead Operating System. Version 0.1."
  6.     exit
  7.   end if
  8.   if BOS < 30 then
  9.     set the text of cast "TEXT" to "Welcome to the Binary Operating System. Version 1.0."
  10.     exit
  11.   end if
  12. end
  13.  
  14. on DATUH
  15.   global DATUH
  16.   set DATUH to random(3)
  17.   if DATUH = 1 then
  18.     set the text of cast "TEXT2" to "0111110"
  19.     set the text of cast "TEXT4" to "0110110"
  20.     set the text of cast "TEXT6" to "1011101"
  21.     set the text of cast "TEXT8" to "0100010"
  22.     exit
  23.   end if
  24.   if DATUH = 2 then
  25.     set the text of cast "TEXT2" to "0101001"
  26.     set the text of cast "TEXT4" to "0010100"
  27.     set the text of cast "TEXT6" to "1111111"
  28.     set the text of cast "TEXT8" to "1010101"
  29.     exit
  30.   end if
  31.   if DATUH = 3 then
  32.     set the text of cast "TEXT2" to "0000000"
  33.     set the text of cast "TEXT4" to "1111111"
  34.     set the text of cast "TEXT6" to "0100111"
  35.     set the text of cast "TEXT8" to "1010011"
  36.     exit
  37.   end if
  38. end
  39.  
  40. on DATUM
  41.   global DATUM
  42.   set DATUM to random(3)
  43.   if DATUM = 1 then
  44.     set the text of cast "TEXT3" to "0101010"
  45.     set the text of cast "TEXT5" to "1110000"
  46.     set the text of cast "TEXT7" to "0001111"
  47.     set the text of cast "TEXT9" to "1000001"
  48.     exit
  49.   end if
  50.   if DATUM = 2 then
  51.     set the text of cast "TEXT3" to "0101001"
  52.     set the text of cast "TEXT5" to "0010000"
  53.     set the text of cast "TEXT7" to "1111111"
  54.     set the text of cast "TEXT9" to "1010101"
  55.     exit
  56.   end if
  57.   if DATUM = 3 then
  58.     set the text of cast "TEXT3" to "0000000"
  59.     set the text of cast "TEXT5" to "1111111"
  60.     set the text of cast "TEXT7" to "0100111"
  61.     set the text of cast "TEXT9" to "1010011"
  62.     exit
  63.   end if
  64. end
  65.  
  66. on FIXIT
  67.   set the text of cast "TEXT" to "Welcome to the Binary Operating System. Version 1.0."
  68.   set the text of cast "TEXT2" to "..."
  69.   set the text of cast "TEXT3" to "..."
  70.   set the text of cast "TEXT4" to "..."
  71.   set the text of cast "TEXT5" to "..."
  72.   set the text of cast "TEXT6" to "..."
  73.   set the text of cast "TEXT7" to "..."
  74.   set the text of cast "TEXT8" to "..."
  75.   set the text of cast "TEXT9" to "..."
  76. end
  77.